Sub Essai()
Tablo = Array(37, 10, 164, 39, 12, 166, 40, 14, 168, 41, 13, 167, 42, 15, 169)
'Remplissage des références
E = Tablo(i)
For i = LBound(Tablo) To UBound(Tablo) Step 3
For C = Tablo(i + 1) To Tablo(i + 2) Step 11
If Me.Controls("TextBox" & C).Value <> "" Then
Cells(L, E).Value = Me.Controls("TextBox" & C).Value
E = E + 6
End If
Next C
Next i
End Sub