"Workbook_SheetSelectionChange" avec cells.activate

If Target.Address = "$B$2" then UserForm1.Show

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

'L'objet Sh représente une variable représentant une feuille de calcul
'Target représente une cellule ou plage de cellules de la feuille active.

'Si tu veux qu'une macro s'exécute quand tu sélectionnes une cellule
'particulière d'une feuille particulière

'A ) d'abord tu dois savoir quelle feuille est active
'    pour ce faire, utilise un petit test

'Si la feuille affichée à l'écran est le nom de l'onglet Feuil1
If Sh.Name = "Feuil1" Then
    'Si la cellule active est la cellule B2
    If Target.Address = Range("B2").Address Then
       UserForm1.Show
       
    End If
End If

'Le formulaire va s'afficher seulement et seulement si
'la feuille "Feuil1" est la feuille active et seulement
'si tu cliques sur la cellule B2

End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'le code...
End Sub

If Sh.Name = "suivi client" Then
     'Si la cellule active est la cellule B2
    If Target.Address = Range("D6:D45").Address Then
        pcalendrier
    End If
End If

If Sh.Name = "suivi client" Then
     'Si la cellule active est la cellule B2
    If Target.Address = "$B$2" Then
        pcalendrier
    End If
End If