Re : Erreur d'execution 28 . Espace pile insuffisant
Bonsoir,
essaye ainsi :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If ActiveCell.Column = 10 Then
Call MFC_dispo
End If
If ActiveCell.Column = 7 Then
Call cherche_caissier(Target)
End If
Application.EnableEvents = True
End Sub