Private Sub Affich_Entete_Click()
With UserForm1
If .Affich_Entete = True Then
Affich_Entete.Caption = "Afficher les Entêtes de Lignes et de Colonnes"
ActiveWindow.DisplayHeadings = True
Else
Affich_Entete.Caption = "Ôter les Entêtes de Lignes et de Colonnes"
ActiveWindow.DisplayHeadings = False
End If
End With
End Sub