Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim texte, c As Range, n%
texte = Array("Nom Prénom", "Couriel", "Site web", "Montant en euros", "Numéro de téléphone")
Application.EnableEvents = False
For Each c In [C3,Q3,C5,Q5,J7] 'adaptable
If Intersect(ActiveCell, c) Is Nothing Then
If c = texte(n) Then
c.Font.ColorIndex = 16 'gris
c.Font.Bold = False 'non gras
c.Font.Italic = True
ElseIf c = "" Then
c = texte(n)
Else
c.Font.ColorIndex = xlAutomatic
c.Font.Bold = True 'gras
c.Font.Italic = False
End If
Else
c = ""
CreateObject("WScript.Shell").SendKeys "{F2}" 'mode édition
End If
n = n + 1
Next
Application.EnableEvents = True
End Sub