Bonjour!!!

Je souhaite créer une macro qui me permette de tester si une cellule est utilisée, et au quel cas ma zone de collage se décale de 4 cellules vers la droite. voici le bout de code que je ne parviens pas à faire fonctionner.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim repere As String
 
Sheets("Archivage").Select
If Range("k4") = "" Then
repere = "j7"
Else: repere = Range("k4").ActiveCell.adress
repere = Range(repere).Offset(0, 4)
End If
 
Sheets("TdP").Select
Range("DATE2").Select
    Selection.Copy
    Sheets("Archivage").Select
    If (Range(repere).Value = "") Then
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
        :=False, Transpose:=False
    Else: Range(repere).Offset(0, 4).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
        :=False, Transpose:=False
    End If
Merci d'avance!