Private Sub CommandButton1_Click()
Dim Résultat As Range, Ligne As Integer, Colonne As Integer
[COLOR=blue]Toujours déclarer tes variables, ça évite les bétises[/COLOR]
Set Résultat = Sheets("Feuil2").Range("A3:A6").Find(Sheets("Feuil1").Range("A3"))
[COLOR=blue]Cherche dans quelle cellule est le nom de ton formulaire[/COLOR]
If Résultat Is Nothing Then Exit Sub
[COLOR=blue]Si pas de résultat, exit[/COLOR]
Ligne = Résultat.Row
[COLOR=blue]La ligne en feuille 2[/COLOR]
Colonne = Month(Sheets("Feuil1").Range("B11")) * 2
[COLOR=blue]Comme tu as 2 colonnes à remplir, le mois x 2[/COLOR]
Sheets("Feuil2").Cells(Ligne, Colonne) = Sheets("Feuil1").Range("C3")
[COLOR=blue]La somme[/COLOR]
If CheckBox1 = True Then
Sheets("Feuil2").Cells(Ligne, Colonne + 1) = "réglé"
Else
Sheets("Feuil2").Cells(Ligne, Colonne + 1) = "à régler"
End If
[COLOR=blue]Le règlement[/COLOR]
End Sub