Bonjour
OK mais pourquoi cette boucle :
For Col = 1 To 5
Ligne = Feuil7.Cells(Rows.Count, Col).End(xlUp).Row
'MsgBox Ligne
Set Plage = Feuil7.Range(Cells(2, Col), Cells(Ligne, Col))
Plage.Select
Next Col
Tu pourrais la remplacer par la seule instruction :
Set Plage = Feuil7.Range(Cells(2, 5), Cells(Ligne, 5))
Non ?
Bye !