Private Sub Worksheet_Change(ByVal R As Range)
Application.EnableEvents = False
'A remplacer par la colonne des adresses mail
If Not Intersect(R, Columns("D:D")) Is Nothing Then
If R.Offset(0, 0) = vbNullString Then
'ici 3 = colonne G - à remplacer par la colonne des téléphones
R.Offset(0, 3).Copy R.Offset(, 0)
R.Offset(0, 3).ClearContents
End If
End If
Application.EnableEvents = True
End Sub