Séparation de deux tableau

Bonjour comme mon sujet l'indique, je veux séparée deux tableau les uns a la suite des autres.

En amont j'ai crée une macro qui facilite la gestion des chantier dans mon entreprise.

Je veux crée maintenant une nouvelle macro qui permet de rendre un fichier excel (extrait d'un logiciel) en adéquation avec celui crée précédemment. En séparant les deux tableau mis les uns a la suite de l'autre (le nombre de ligne peu être variable).

Ci joints mon code VBA qui ne marche pas ainsi que mon fichier excel :

Sub Copi_partie_tableau()

Dim Code As String

Dim lig_fin As Range

' Déclaration variable

Code = "Date MO"

'Balayage de la plage A2 à Dx

' affectation valeur initiale

j = 10

'boucle jusqu'à ce que la valeur de la 1ere case vide

Do Until Range("A" & j).Value = ""

Range("A" & j).Select

valeur = ActiveCell.Value

If valeur = Code Then

'Selectionné et copié

With lig_fin = Cells(Cells.Rows.Count, "T").End(xlUp).Row

End With

Range("A" & j & ":T" & ligfin).Cut

End If

'je passe à la ligne suivante

j = j + 1

Loop

End Sub

Merci par avance

If valeur = Code Then
'Selectionné et copié
With lig_fin = Cells(Cells.Rows.Count, "T").End(xlUp).Row
End With
Range("A" & j & ":T" & ligfin).Cut
End If 

Ton if monté bizarrement:

• lig_fin et ligfin deja....2noms pour la meme variable
• le With avec rien a l'interieur
• et tu colle pas le résultat de ton cut

If valeur = Code Then
'Selectionné et copié
lig_fin = Cells(Cells.Rows.Count, "T").End(xlUp).Row
Range("A" & j & ":T" & ligfin).Cut sheets("Feuil2").range ("A1")
End If 

Merci de ta réponse aussi rapide.

Sauf que sa ne marche pas, un message d'erreur s'affiche "Variable objet ou variable de bloc With non définie"

C'est pour cela que dans mon écriture vous avez vu "with" ^^.

voila, je te laisse adapter

Merci Zarik d'avoir pris le temps de comprendre mon souci et de me répondre aussi rapidement.

Sa fait plaisir un peu de solidarité par les temps qui courts.

Cordialement

Maxime FELD