Private Sub CommandButton2_Click() 'Bouton "ENREGISTRER"
'Déclare la variable Mois
Dim Mois As String
Dim k As Integer
'Déclare la variable P et B
Dim B As String
Dim C As Range
'Définit la variable B
B = NomClient.Value
'Définit la variable Mois
For k = 16 To 124 Step 9 'compte de 9 en 9 soit col P-Y-AH....
' tant qu'il y a un nom en ligne 9
Mois = Feuil1.Cells(9, k)
If Mois = "" Then Exit Sub
MsgBox Mois 'tu peux supprimer cette ligne
For Each C In Sheets(Mois).Range("B8:B" & Range("B65536").End(xlUp).Row)
If C.Value = B Then
Sheets("SAISIE1").Range("B" & Lig).Copy
C.Offset(0, 20).PasteSpecial
Sheets("SAISIE1").Range("C" & Lig).Copy
C.Offset(0, 21).PasteSpecial
Sheets("SAISIE1").Range("D" & Lig).Copy
C.Offset(0, 22).PasteSpecial
Sheets("SAISIE1").Range("E" & Lig).Copy
C.Offset(0, 23).PasteSpecial
Sheets("SAISIE1").Range("F" & Lig).Copy
C.Offset(0, 24).PasteSpecial
Sheets("SAISIE1").Range("G" & Lig).Copy
C.Offset(0, 25).PasteSpecial
Sheets("SAISIE1").Range("B8").Copy
C.Offset(0, 26).PasteSpecial
End If
Next
Next k
End Sub