Bonjour à tous
Ma méthode paste échoue lamentablement chaque fois que je la tente dans une instruction for each..

je copie des valeurs, je change de feuille, j'isole une cellule vide dans une plage puis je colle. mon test couleur fonctionne mais j'ai tjrs un msg error sur le paste.. pourquoi histoire de contexte??

Merci d'avance
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
21
22
23
24
25
Sub recap()
 
Dim test As String
 
    ActiveSheet.Range("A61:M61").Select
    Selection.Copy
 
    Sheets("RECAP").Select
 
Set zonetest = Range("a4:a100")
    For Each cell In zonetest
        If IsEmpty(cell) = True Then
             cell.Interior.ColorIndex = 3
            cell.Select
            cell.Paste Link:=True
        Exit Sub
        Else
        cell.Interior.ColorIndex = 4
 
        End If
    Next
 
 
 
End Sub