Sub Extraire_par_Formule()
'Déclarations des variables
Dim dl&, f
dl = Cells(Rows.Count, 1).End(3).Row '-< numéro de ligne dela dernière cellule non vide (colonne A)
f = Array("=MID(RC[-1],1,SEARCH("" "",RC[-1]))", "=MID(RC[-2],SEARCH("" "",RC[-2])+1,9^9)")
'f est un tableau (ou Array) contenant les formules
'Dans les cellules B2 et C2, j'inscris le contenu de f
[B2:C2].Formula = f: Range("B2:C" & dl).FillDown
'et je recopie vers le bas ces formules
End Sub