Sub ActualiseFeuille(NumCoul As Long)
Dim i As Long, DerLigne As Long
'Désactivation de l'affichage écran
Application.ScreenUpdating = False
'Suppression des données de la feuille activée
ActiveSheet.Range("A4:IV65536").Clear
'Début du compteur pour savoir dans quelle ligne coller
DerLigne = 4
'Pour chaque ligne de la feuille Pilote
For i = 1 To Sheets("Pilote").Range("A65536").End(xlUp).Row + 1
'Si la cellule colonne A a un fond de la couleur spécifiée ou aucun fond
If Sheets("Pilote").Range("A" & i).Interior.ColorIndex = NumCoul Or _
Sheets("Pilote").Range("A" & i).Interior.ColorIndex = xlNone Then
'On copie la ligne entière de Pilote vers la ligne du compteur de la feuille active
Sheets("Pilote").Range("A" & i).EntireRow.Copy ActiveSheet.Range("A" & DerLigne)
'On incrémente le compteur de 1
DerLigne = DerLigne + 1
End If
Next i
'Réactivation de l'affichage écran
Application.ScreenUpdating = True
End Sub