Sub comptage()
Dim Plage, Cel As Range
Dim Cptr1, Cptr2, lig, col As Long
Cptr1 = Sheets("Données").Range("A" & Rows.Count).End(xlUp).Row
Set Plage = Sheets("Données").Range("$A$2:$A$" & Cptr1)
For j = 2 To Cptr1
tst = Sheets("Données").Range("A" & j)
lig = Sheets("Données").Range("A" & j).Row
col = Sheets("Données").Range("A" & j).Column
If tst <> "" Then
For i = 1 To Sheets("liste à extraire").Range("A" & Rows.Count).End(xlUp).Row
If tst = Sheets("liste à extraire").Range("A" & i) Then
Cptr2 = Sheets("FF").Range("A" & Rows.Count).End(xlUp).Row
Sheets("FF").Range("A" & Cptr2 + 1) = tst
Sheets("FF").Range("B" & Cptr2 + 1) = Cells(lig, col + 1)
Sheets("FF").Range("C" & Cptr2 + 1) = Cells(lig, col + 2)
Sheets("FF").Range("D" & Cptr2 + 1) = Cells(lig, col + 3)
Sheets("FF").Range("E" & Cptr2 + 1) = Cells(lig, col + 4)
Sheets("FF").Range("F" & Cptr2 + 1) = Cells(lig, col + 5)
End If
Next
End If
Next