Private Sub CmdCIGVal_Click()
Dim cel As Range, c As Range, ad&
Sheets("Effectifs").Activate
For Each cel In Range("D1:D" & Range("D65536").End(xlUp).Row)
For Each c In Range("D1:D" & Range("D65536").End(xlUp).Row)
If LCase(c) = LCase(UsfCIGrade.TBoxCIGMat) Then
c.Offset(0, 1) = CboxCIGNGrad.Value
Unload UsfCIGrade
Exit Sub
End If
Next c
Next cel
End Sub