Un fichier --> 2 macros

Sub Bidule()

Dim Ligne As Integer, i1 As Integer, i2 As Byte, Mois As Byte

With Sheets("BASE")
    Ligne = .Range("A" & Rows.Count).End(xlUp).Row 'N° de la dernière ligne
    NumCherché = Application.InputBox("N° recherché", Type:=1)
    For i1 = 2 To Ligne
        If .Cells(i1, 12) = NumCherché Then Exit For
    Next i1
    Mois = Application.InputBox("N° du mois", Type:=1)
    If Mois < 12 Then
        For i2 = 1 To 12 - Mois
            .Rows(i1).Copy
            .Rows(Ligne + i2).Select
            ActiveSheet.Paste
            Application.CutCopyMode = False
            .ListObjects("Tableau1").Resize .Range("A7:L" & Ligne + 12 - Mois) 'Redéfinir la plage du tableau en intégrant les nouvelles lignes
        Next i2
    End If
End With

End Sub

Un grand merci à toi

C'est vraiment top top

pilotagecelulle a écrit :

Un grand merci à toi

C'est vraiment top top

On en voit le bout !