Merci Eric ça marche c'est top ! :)
Dernière petite sollicitation, peux tu me dire à quoi correspond la partie en rouge et en gras ?
Range(Sheets(s).[A2], Sheets(s).[A65000].End(xlUp).End(xlToRight)).Copy _
[A65000].End(xlUp).Offset(1, 0)
Un grand merci à tous! Merci Staple 1600, merci...