Dim cel As Range
For Each cel In Range("A1:" & Range("A65536").End(xlUp).Row)
'si le matricule ne contient que des numéro met Val(Userform1.Textbox1.Value)
If Userform1.Textbox1.Value = cel Then
'je suppose que la colonne contenant la brigade est la colonne 3
Cells(cel.Row, 3).Value = Userform1.TBCIBrig.Value
End If
Next cel