Sub Macro1()
Dim cel As Range 'déclare la variable cel
'boucle sur toutes les cellules éditées cel de la colonne A (à adapter à ton cas)
For Each cel In Range("A1:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row)
If Left(cel.Value, 2) = "FM" Then 'condition : si les deux premiers caractères à gauche de la cellule cel sont ""FM"
Range("FM" & cel.Row).Value = cel.Value 'la cellule dans la colonne FM prend la valeur de cel
Else 'sinon
Range("DI" & cel.Row).Value = cel.Value 'la cellule dans la colonne ID prend la valeur de cel
End If 'fin de la condition
Next cel 'prochaine cellule de la colonne A
End Sub