Bonjour et merci de ta réponse.
Je n'arrive pas à insérer e code dans mon prog.
voici mon prog.
Public Sub prog1()
nom = InputBox('Donner le nom de l'utilisateur')
For Each x In Range('A:A')
n = n + 1
plage = n
if nom appartient range('A:A')
If nom = x Then
x = x.Offset(0, 1)
MsgBox 'l'utilisateur ' & nom & ' appartient au groupe ' & x
End If
ElseIf nom n'appartient pas a range('A:A')
MsgBox 'cet utilisateur n'existe pas !!'
End If
Next
End Sub
voila, c'est ce qui se trouve en rouge qui me pose problème.
Merci