Hello Merci a tous, j'ai eu un code par un autre contact, i fonctionne pas trop mal , je partage.
Merci a vous
Sub Tri()
Dim DerLig As Integer
Dim Plage As Range
With Sheets("Demande de TRANSFERT ")
DerLig = .Range("A" & Rows.Count).End(xlUp).Row
Set Plage = .Range("A4:U" &...