XL 2016 macro copier coller avec differents critères

[moupa]

Bonjour le forum,

J'ai une demande d'un collègue pour son fichier de suivi, ou sa demande est:
de copier les champs avec la mise en forme des cellules A14 à S21
de coller avec la mise en forme celles ci en dessous de se tableau cad à partir de la ligne A23
et de supprimer les renseignement qu'ils y auraient dans la deuxième colonne, cad (toto,1,2 etc. mais aussi zut de zut)

mais aussi de pouvoir refaire la cette procédure plusieurs fois en cliquant sur les bouton + ou de pouvoir supprimer le dernier tableau insérer
par avance merci
moupa

 

[Calvus]

Bonsoir moupa, le forum,

Voici une solution, si j'ai bien tout saisi.

Sub Ajout()
Dim t, i%

t = Range("A14:S21")
For i = 1 To 6
    t(i, 6) = ""
    t(7, 4) = ""
Next i

Range("A14:S21").Copy
Range("A" & Rows.Count).End(xlUp)(4).PasteSpecial Paste:=xlPasteFormats
 
  With Range("A" & Rows.Count).End(xlUp)(4).Resize(i, 19)
    .Value = t
    .Rows("1:3").RowHeight = 28
    .Rows("4:7").RowHeight = 42
  End With
End Sub

A+

 

[moupa]

Bonjour Calvus,

Génial cela correspond a ce que je cherchais a faire ;-)
merci