Macro Copier/ Coller

Bonjour,

Je voudrai créer une macro qui permettrait de copier la cellule sélectionnée sur une feuille excel et la remettre sur une autre dans un tableau. Pour cela elle vérifie que la case ou elle la met soit bien vide avant de coller.

Voici le code que j'ai développé et dans lequel j'ai des problèmes :

Sub Copier_RCF()

Dim I As Integer
Dim L As Integer

Selection.Copy

I = 0
L = 10



Do While I = 0

If [ISBLANK(CL)=TRUE] Then

Range("CL").Activate
Range("CL").PasteSpecial xlPasteAll

I = 1
Else: L = L + 1
End If

Loop


End Sub