Bonsoir Francky et Enzobob,
Deux solutions, mais je préconise la première :
1)
Dim InChange As Boolean
Private Sub ... ()
**If Not InChange Then
****InChange = True
****Ton code
****InChange = False
**End If
End Sub
2)
Private Sub ... ()
**Application.EnableEvents = False
**Ton code
**Application.EnableEvents = True
End Sub
Voili voilà
Amicalement
Charly