Bonjour,
Je crée ma fonction ( sous vba excel 2003), ci dessous :
Private Sub récapitulatif(Nom As Variant, Colonne As Variant)
'Kloug = MsgBox(Item, 1, "Titre", "", 1)
Nom.Caption = Worksheets(Fac).Cells(Ligne - 3, Colonne)
If Worksheets(Fac).Cells(Ligne - 3, Colonne) = "" Then...