Sub Test()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Sheets("feuil2").Activate ' feuille de destination
ColA = "A" ' colonne données non vides à tester'
ColB = "B"
ColC = "F"
ColM = "M"
NumLig = 2 'alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 = 0 .... ? '
With Sheets("feuil1") ' feuille source'
NbrLig = .Cells(65536, ColA).End(xlUp).Row
For Lig = 2 To NbrLig 'n° de la 1ere ligne de données'
If .Cells(Lig, ColA).Value = "Excel" And .Cells(Lig, ColB).Value = "2017" And .Cells(Lig, ColC).Value = "France" Then
.Cells(Lig, ColM).Copy
NumLig = NumLig + 1
Sheets("feuil2").Cells(NumLig, 1).Insert Shift:=xlDown, Unique:=True
'ici pour insérer ou .Paste pour coller'
End If
Next
End With
End Sub