Bonjour le forum,
Merci de vos contributions j'ai réussi à trouver la solution,la voici pour ceux que ça intéresse,
f.Cells(ligneEnreg, 1) = Application.Proper(Me!TextBox1)
For x = 2 To 6
Cells(2000, 1).Value = f.Cells(ligneEnreg, x).Value
Cells(2000, 2).Value = Me.Controls("TextBox" & x).Value
If Cells(2000, 1).Value <> Cells(2000, 2).Value Then
f.Cells(ligneEnreg, x) = Me.Controls("TextBox" & x).Value
End If
Next x
Cells(2000, 1).Value = ""
Cells(2000, 2).Value = ""
à bientôt peut-être pour de nouvelles questions