Modifier la Macro Copier/Coller d'une Feuille à l'autre

Bonjour,

J'utilise la Macro si dessous pour copie coller d'une Feuille à l'autre

Mon problème c'est que lorsque le nombre de ligne de la Colonne C de la Feuille ("Saisie-LSP") est différent du nombre de lignes de la Colonne F la Macro ne marche pas

J'aimerais bien que avoir de l’aide à ce que la Macro fonctionne telle que:

la Colonne C de la Feuille ("Saisie-LSP") contient 13 ligne

la Colonne F de la Feuille ("Saisie-LSP") contient 12 ligne

Merci infiniment


La Macro est la suivente:

Sub Ajout_Info_LSP()
Dim Tablo_c, Tablo_f, Tablo_out, cptr As Byte, Cpt_out As Byte
'---------initialisations
Application.ScreenUpdating = False
'mise en mémoire Ram daes éléments en "saisie lsp"
With Sheets("Saisie-LSP")
Tablo_c = Application.Transpose(.Range("C4:C28"))
Tablo_f = Application.Transpose(.Range("F4:F28"))
'tableau de sortie
ReDim Tablo_out(1 To 26)
End With
'-------transfert des données
For cptr = 1 To 26 Step 2
Cpt_out = Cpt_out + 1
Tablo_out(Cpt_out) = Tablo_c(cptr)
Tablo_out(Cpt_out + 13) = Tablo_f(cptr)
Next
'------ restitution dans la feuille lsp
With Sheets("L S P")
.Range("A2").Resize(1, 26) = Tablo_out
.Columns("A:Z").EntireColumn.AutoFit
.Activate
End With
End Sub