simplification boucles

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...