^Voilà l'ajout du code, j'espère ne pas avoir fais de bêtise
En lançant la macro, elle ne peut pas se terminer car au niveau de cette ligne :
.ListObjects("Tableau1").Resize .Range("A6:AZ" & Ligne + 12 - Mois) 'Redéfinir la plage du tableau en intégrant les nouvelles lignes
j'ai ce message qui s'affiche :
Erreur d'exécution '1004' :
La place spéficifée n'est pas valide. Les en-têtes doivent rester sur la même ligne et le tableau résultant doit chevaucher celui d'origine. Le tableau doit cotenir une ligne d'en-tête et au moins une ligne de données. Indiquez un tableau valide
Sub etape3()
Dim Ligne As Integer, i As Byte, Mois As Byte
With Sheets("BASE")
NumCherché = Application.InputBox("N° recherché", Type:=1)
For i = 2 To Ligne
If .Cells(i, 12) = NumCherché Then Exit For
Next
Mois = Application.InputBox("N° du mois", Type:=1)
If Mois < 12 Then
For i = 1 To 12 - Mois
.Rows(i).Copy
.Rows(Ligne + i).Select
ActiveSheet.Paste
Application.CutCopyMode = False
.ListObjects("Tableau1").Resize .Range("A6:AZ" & Ligne + 12 - Mois) 'Redéfinir la plage du tableau en intégrant les nouvelles lignes
Next i
End If
End With
End Sub