bonsoir Hugues, bonsoir le forum
as-tu essayé le code suivant :
Private Sub CommandButton7_Click()
Sheets('fichier').Select
Columns('A:A').Select
maLigne = Selection.Find(What:='xxx003', After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Row
With Worksheets('fichier')
.Range(Cells(maLigne, 2).Address) = TextBox2
.Range(Cells(maLigne, 3).Address) = TextBox3
.Range(Cells(maLigne, 4).Address) = TextBox4
.Range(Cells(maLigne, 5).Address) = TextBox5
.Range(Cells(maLigne, 6).Address) = TextBox6
.Range(Cells(maLigne, 7).Address) = TextBox7
.Range(Cells(maLigne, 8).Address) = TextBox8
.Range(Cells(maLigne, 9).Address) = TextBox9
.Range(Cells(maLigne, 10).Address) = TextBox10
.Range(Cells(maLigne, 11).Address) = TextBox11
.Range(Cells(maLigne, 12).Address) = TextBox12
.Range(Cells(maLigne, 13).Address) = TextBox13
.Range(Cells(maLigne, 14).Address) = TextBox14
.Range(Cells(maLigne, 15).Address) = TextBox15
.Range(Cells(maLigne, 16).Address) = TextBox16
.Range(Cells(maLigne, 17).Address) = TextBox17
.Range(Cells(maLigne, 18).Address) = TextBox18
.Range(Cells(maLigne, 19).Address) = TextBox19
.Range(Cells(maLigne, 20).Address) = TextBox20
.Range(Cells(maLigne, 21).Address) = TextBox21
.Range(Cells(maLigne, 22).Address) = TextBox22
.Range(Cells(maLigne, 23).Address) = TextBox23
End With
End Sub
courage, ça va peut-être marcher