Sub bambi()
Dim i As Integer, x As Integer, Deb As Integer, Fin As Integer, DerL2 As Integer
Dim F1 As Worksheet, F2 As Worksheet
Set F1 = Worksheets("Feuil1")
Set F2 = Worksheets("Feuil2")
Deb = 2 'N° ligne de début de Tableau à copier
Fin = 7 'N° ligne de fin de Tableau à copier
x = 1 'N° ligne de début de copie sur la feuille 2 (brouillon)
'*** on copie le tableau dans une feuille "brouillon" en supprimant les lignes inutiles
For i = Deb To Fin
If F1.Cells(i, 4) <> "" Or F1.Cells(i, 5) <> "" Then
F1.Range("B" & i & ":G" & i).Copy F2.Range("A" & x)
x = x + 1
ElseIf F1.Cells(i, 3) = "TEMPS" Or F1.Cells(i, 3) = "HEURE" Then
F1.Range("B" & i & ":G" & i).Copy F2.Range("A" & x)
x = x + 1
End If
Next
'** on efface les données de la feuille originaleoriginales
F1.Range("B" & Deb & ":G" & Fin).ClearContents
'*** on copie le tableau de la feuille brouillon sur la feuille originale
F2.Range("A1" & ":F" & x).Copy F1.Range("B" & Deb)
End Sub