Appliquer une formule sur une ligne

Sub test()
With Worksheets("Feuil1")
Set SourceRange = .Range("B2") 'ex il y a A en B2
Set fillRange = .Range(.Cells(2, 2), .Cells(2, .Cells(4, 1).End(xlToRight).Column)) 'on détermine par rapport à la ligne 4 la derniere colonne non vide en partant de la colonne 255 on obtient la plage de recopie ex Range("B2:M2") si la derniere colonne non vide de la ligne 4 est la 13
End with
SourceRange.AutoFill Destination:=fillRange 'on recopie et on Obtient A,B,C etc
End Sub

Cliquez pour agrandir...

N'empeche que meme si le probleme est résolu je me demande bien si on peut utiliser autofill sur une ligne...

Cliquez pour agrandir...

Set fillRange = .Range(.Cells(2, 2), .Cells(2, .Cells(4, 1).End(xlToRight).Column)) 'on détermine par rapport à la ligne 4 la derniere colonne non vide en partant de la colonne 255 on obtient la plage de recopie ex Range("B2:M2") si la derniere colonne non vide de la ligne 4 est la 13

Cliquez pour agrandir...

J'entendais une macro de la forme:

Selection.AutoFill Destination:=Range("EU2:EU" & Range("M65536").End(xlUp).Row), Type:=xlFillDefault

Mais c'est le EU qui pose problème, j'avais envie de mettre 2 mais ca marchait pas...

Cliquez pour agrandir...