Je cherche à simplifier ces boucles en 1 seule
Merci pour votre aide
'Remplissage des références
E = 37
For C = 10 To 164 Step 11
If Me.Controls("TextBox" & C).Value <> "" Then
Cells(L, E).Value = Me.Controls("TextBox" & C).Value
E = E + 6
End If
Next
'Remplissage des désignations Op
E = 39...