Copier des cellules dans une autre feuille d'un même client

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Application.ScreenUpdating = False
Application.DisplayAlerts = False

m = 2

Do Until Sheets("Clients à extraire").Cells(m, 1).Value = ""

Sheets("Modèle").Copy After:=Sheets(Worksheets.Count)
On Error Resume Next
Sheets(Worksheets.Count).Name = Sheets("Clients à extraire").Cells(m, 1).Value

On Error Resume Next
Sheets("Modèle (2)").Delete

Dim Numcl As String
Numcl = Sheets("Clients à extraire").Cells(m, 1).Value

Dim DernLigne As Long
DernLigne = Sheets("Global").Range("A" & Rows.Count).End(xlUp).Row
k = 2
For i = 1 To DernLigne
If Sheets("Global").Cells(i, 1).Value = Numcl Then
Sheets(Numcl).Range("A" & k & ":K" & k).Value = Sheets("Global").Range("A" & i & ":K" & i).Value
k = k + 1
End If
Next i

Dim DernLigneCl As Long
DernLigneCl = Sheets(Numcl).Range("A" & Rows.Count).End(xlUp).Row
Sheets(Numcl).Rows("2:2").Copy
Sheets(Numcl).Rows("3:" & DernLigneCl).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
Sheets(Numcl).Cells.EntireColumn.AutoFit

m = m + 1

Loop

Application.DisplayAlerts = True
Sheets("Modèle").Select
Application.ScreenUpdating = True


End Sub