Private Sub récapitulatif(Nom As Variant, Colonne As Variant)
'Kloug = MsgBox(Item, 1, "Titre", "", 1)
[COLOR="Red"]Nom.Caption = Worksheets(Fac).Cells(Ligne - 3, Colonne)[/COLOR]
If Worksheets(Fac).Cells(Ligne - 3, Colonne) = "" Then
Nom.Caption = 0
End If
End Sub