Bonjour tout le monde,

Je bloque un petit peu sur une macro, je voudrais coller les cellules sélectionnées que si les cellules de destination sont vides. J'ai essayé plusieurs façons mais aucune pour le moment ne répond à mes attentes. Voilà la dernière version de ma macro que j'ai essayé :

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
Private Sub CommandButton1_Click()
 
Dim i As Integer
    i = 1
 
   Range("C1:C7").Select
   Selection.Copy
   If Not IsEmpty(Cells(i, 1)) Then
           Do While Cells(i, 1).Value <> ""
            i = i + 1
            Loop
    ElseIf IsEmpty(Cells(i, i)) Then
   ActiveSheet.Paste
   Application.CutCopyMode = False
 
End If
End Sub
Merci d'avance pour me donner des pistes pour résoudre mon problème !