Re : Copier dans des cellules vides ...
Oui,
Voici le bon code:
For i = 2 To 3000
Range("AJ" & i).Copy
If Range("AL" & i) = Empty Then
Range("AL" & i).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
Next