re Bonjour

je cherche a crée une macro qui sous une condition de couleur d'une cellule me copierais LA LIGNE ENTIERE dans une autre feuille que je crée au debut...

Le simple fais de copier ne fonctionne pas ( ça s'arrete pile a la ligne ou il y a de la couleur...)

Quelqu'un pourrait il m'aider ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub envoiesurlautrefeuille()
Worksheets.Add
Worksheets(2).Activate
 
Dim VARO As Integer
lignefin = Worksheets(2).Cells(65535, 1).End(xlUp).Row
For VARO = 1 To lignefin
If Cells(VARO, 13).Interior.ColorIndex = 3 Then
Range("VARO:VARO").Copy
 
End If
Next
End Sub