Private Sub Cadre1_Cliquer()
Dim Derlig As Integer, L As Integer
Call MasquerFeuilles
Dim ws As Worksheet
A = Range("G5")
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "Inscriptions" Or ws.Name = "" & A & "" Then
ws.Visible = xlSheetVisible
End If
Next ws
Sheets("" & A & "").Activate
Derlig = Sheets("Inscriptions").Range("A65500").End(xlUp).Row
Range("C4:C1000").ClearContents
For L = 4 To Derlig
Cells(L, "C") = Sheets("Inscriptions").Cells(L, "C")
Next L
MsgBox Range("C65500").End(xlUp).Row - 3 & " lignes...
Private Sub Cadre1_Cliquer()
Dim Derlig As Integer, L As Integer
Call MasquerFeuilles
Dim ws As Worksheet
A = Range("G5")
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "Inscriptions" Or ws.Name = "" & A & "" Then
ws.Visible = xlSheetVisible
End If
Next ws
Sheets("" & A & "").Activate
Derlig = Sheets("Inscriptions").Range("A65500").End(xlUp).Row
Range("C4:C1000").ClearContents
For L = 4 To Derlig
Cells(L, "C") = Sheets("Inscriptions").Cells(L, "C")
Next L
MsgBox Range("C65500").End(xlUp).Row - 3 & " lignes importées" ' A supprimer
End Sub