merci, ........ mais je me suis un peu inversé dans les mots, en fait je cherchais a scanner une suite de checkbox et textbox ..... j'ai trouver une solution du genre :
Dim j As Integer, check As String
For j = 1 To 16
check = "CheckBox" & j
If choix(check).Value = True Then
Dim i As Integer
For i = 7 To 42
Dim e As Integer, f As Integer, g As Integer, text0 As String, text1 As String, text2 As String
e = 1 + 3 * (j - 1)
f = 2 + 3 * (j - 1)
g = 3 + 3 * (j - 1)
test0 = "TextBox" & e
test1 = "TextBox" & f
test2 = "TextBox" & g
If Worksheets(1).Range("B" & i).Text = choix(test2).Text Then
Worksheets(1).Range("C" & i) = choix(test0).Text
Worksheets(1).Range("D" & i) = choix(test1).Text
End If
Next i
End If
Next j
voila, si ça peut aider !!!