Salut cfn3cfn,
Avec un seul bouton, pour des colonnes adjacentes :
Range("A5:E5").AutoFill Destination:=Range("A5000:E5000")
Pour des colonnes non-adjacentes :
Range("A5").AutoFill Destination:=Range("A5:A5000")
Range("C5").AutoFill Destination:=Range("C5:C5000")