If UserFormLigne1.ComboBox1 = "Lunette de protection" Then
For epi = 1 To 7
If Me.Controls("lunette" & epi) = True Then
Me.Controls("TBlunette" & epi).Value = Me.Controls("lunette" & epi).Caption
End If
Next

If UserFormLigne1.ComboBox2 = "Lunette de protection" Then
For epi = 1 To 7
If Me.Controls("lunette" & epi) = True Then
Me.Controls("TBlunette" & epi).Value = Me.Controls("lunette" & epi).Caption
End If
Next

If UserFormLigne1.ComboBox3 = "Lunette de protection" Then
For epi = 1 To 7
If Me.Controls("lunette" & epi) = True Then
Me.Controls("TBlunette" & epi).Value = Me.Controls("lunette" & epi).Caption
End If
Next

If UserFormLigne1.ComboBox4 = "Lunette de protection" Then
For epi = 1 To 7
If Me.Controls("lunette" & epi) = True Then
Me.Controls("TBlunette" & epi).Value = Me.Controls("lunette" & epi).Caption
End If
Next

If UserFormLigne1.ComboBox3 = "Lunette de protection" Then
For epi = 1 To 7
If Me.Controls("lunette" & epi) = True Then
Me.Controls("TBlunette" & epi).Value = Me.Controls("lunette" & epi).Caption
End If
Next