Re : Jeu de carte Solitaire
Bonjour usul, dans la fonction esExcel2003, essayez de changer la valeur de la version 12 à 14
Function esExcel2003() As Boolean
Dim arrVersion As Variant
arrVersion = Split(Application.Version, ".")
If arrVersion(0) < 14 Then...