re
Voilà ma ligne de code.
Sub Màj()
Set sh1 = Sheets("GRILLE DE TRAVAIL")
Set sh2 = Sheets("RESULTAT")
rw1 = sh1.Cells(Rows.Count, "A").End(xlUp).Row
sh2.Range("A6:F" & sh2.Cells(Rows.Count, "A").End(xlUp).Row).ClearContents
For i = 6 To rw1
If Left(sh1.Cells(i, "A"), 6) = "vol" Or sh1.Cells(i, "B") = "X" Then
rw2 = sh2.Cells(Rows.Count, "A").End(xlUp).Row + 1
sh1.Range("A" & i & ":F" & i).Copy sh2.Cells(rw2, "A")
End If
Next i
Range("A6:A143").Select
End Sub
or j'ai un problème à cette ligne
sh1.Range("A" & i & ":F" & i).Copy sh2.Cells(rw2, "A")
Pourquoi?