Contenu récent par Paulo78570

Salut Marcffd, Peux-tu remettre le code final car sa bug aussi chez moi!!! Voici ce que j'ai inscrit: Private Sub CommandButton1_Click() Dim Ctrl As Control Dim r As Integer Dim t As Integer Dim derligne As Integer With Worksheets("Feuil1") derligne = .Range("A65536").End(x1Up).Row + 1 For...