Sub Macro1()
Dim o As Object 'déclare la variable o (Onglet)
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Range 'déclare la variable dest (cellule de DESTination)
Set o = Sheets("Feuil1") 'définit l'onglet o
dl = o.Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne 1 (=A) de l'onglet o
Set pl = o.Range("A2:A" & dl) 'définit la plage pl
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
If Left(CStr(cel.Value), 1) = "9" Then 'condition : si la cellule commence par 9
Set dest = o.Cells(Application.Rows.Count, 5).End(xlUp).Offset(1, 0) 'définit la cellule de destination
cel.Copy dest 'copie la cellule cel dans la cellule de destination dest
End If 'fin de la condition
Next cel 'prochaine cellule de boucle
End Sub