Bonjour,
sans exemple pas facile à mettre en place
une soluce
DL=Range("A" & Rows.Count).End(xlUp).Row 'Derniere ligne de la colonne A
F = "=IF(AND(A13="""",F13=""""),G13,"""")" 'Formule ) mettre la formule après le F = (venant de la macro automatique par exemple)
Range("L13").Formula = F 'Emplacement de la 1ere cellule recevant la formule
Range("L13").AutoFill Destination:=Range("L13:" & DL), Type:=xlFillDefault 'incrémentation jusqu'à la derniere ligne