Recherche:

Les données commence en A2 non??
si tu n'arrive pas à résoudre ton problème joindre un autre exemple avec dizaine de données fictives

bonjour
une proposition si j'ai compris la demande

Sub test()
Dim f1 As Worksheet
Dim f2 As Worksheet
Dim L As Long
Dim DerLig As Long
Application.ScreenUpdating = False
Set f1 =...