Re,
Mécanisme :
With Worksheets("Planning")
.Range("E8:AW8") _[barrer].Select[/barrer]
[barrer]Selection[/barrer].AutoFill [barrer]Destination:=[/barrer].Range("E8:AW" & iRow)[barrer], Type:=xlFillDefault[/barrer]
End With
Résultat :
With Worksheets("Planning")
.Range("E8:AW8").AutoFill .Range("E8:AW" & iRow)
End With
On raccorde, on ajoute les points manquants, on supprime aussi les noms d'arguments (passage par position), et le second n'est pas nécessaire...
(Quand l'enregistreur te met Select suivi de Selection à la ligne en dessous, le raccord est direct... C'est parfois un peu moins simple.
Cordialement.