Bonjour le forum
Bonjour ericp, bonjour Patty5046
Il semblerait que tes range "E2:F..." aient un format particulier. Essaie de rajouter les 2 lignes dans le code, ça devrait fonctionner :
Dim ligne As Long
If Me.CommandButton1.Caption = "Ajouter" Then 'On est en creation
Range("E2:F100").Select
Selection.NumberFormat = "dd/mm/yy;@"
With [Tableau1]
If .Item(1, 3) = "" Then ligne = 1 Else ligne = .Rows.Count + 1
Bon dimanche