Sub Macro1()
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1" (à adapter à ton cas)
Set pl = .Range("I1:I" & .Cells(Application.Rows.Count, 9).End(xlUp).Row) 'définit la plage pl
For Each cel In pl 'boucle sur toutes les cellules éditées cel de la plage pl
If cel.Value <> "" Then 'condition : si la cellule cel n'est pas vide
cel.Offset(0, -6).Value = "Titi" 'place "Titi"en colonne C
cel.Offset(0, -5).Value = "Tutu" 'place "Tutu"en colonne D
cel.Offset(0, -4).Value = "Tata" 'place "Tata"en colonne E
End If 'fin de la condition
Next cel 'prochaine cellule de la boucle
End With 'fin de la prise en compte de l'onglet "Feuil1"
End Sub