'BOUCLE
Sheets("Semestre 1").Activate
If cl.Offset(, 4) = "" Then
cl.Offset(, 4) = val3
Else
Do
Set cl = Columns(21).FindNext(cl)
cl.Offset(, 4) = val3
'If cl.Offset(, 4) = "" Then Exit Sub
Loop While Not cl.Offset(, 4) Is Nothing
End If
'FIN DE BOUCLE