Merci pour votre réponse, je me suis en effet mal expliquer, ce que je recherche ce n'est pas de tout doubler, c'est de pouvoir doubler que les colonnes qui contiennent des données.
Grace à la premiere macro, celle que vous trouverez juste en bas :
Public Sub InsertRowsAndvalues()
Dim tbl, arr(), i As Long, k As Long
tbl = ActiveSheet.Cells(1).CurrentRegion.Value
ReDim arr(UBound(tbl) * 2)
For i = LBound(tbl) To UBound(tbl)
arr(k) = tbl(i, 1)
arr(k + 1) = tbl(i, 1)
k = k + 2
Next i
ActiveSheet.Cells(1).Resize(k).Value = Application.Transpose(arr)
End Sub
Je pouvais l'utiliser que pour une seul colonne sans modifier les autres. J'ai changer les variables en appliquant la meme macro sur d'autres colonnes, dans certains cas elle marchait et dans d'autres non. Je pouvais aussi modifier la partie en orange et pouvoir noter ce que je voulais dans la case.
Ma demande c'est de pouvoir l'appliquer sur plusieurs colonnes, c'est à dire que celle que je choisie sans modifier les autres colonnes.
Merci pour votre réponse, cordialement