Sub test()
Dim avtdernlig As Integer
Dim dernlig As Integer
Dim t As Boolean
dernlig = Range("A1").End(xlDown).Row
t = False
For i = dernlig To 1 Step -1
'supprimer la ligne de code ci-dessous si on veut coller sur la dernière ligne visible du tableau
'la laisser tel que, si on veut coller sur la première ligne visible en dessous du dernier groupe de lignes masquées
If t = False Then dernlig = i
If Rows(i).Hidden = True Then
t = True
ElseIf t Then
avtdernlig = i
'supprimer la ligne de code ci-dessous si on veut coller sur la dernière ligne visible du tableau
'la laisser tel que, si on veut coller sur la première ligne visible en dessous du dernier groupe de lignes masquées
dernlig = dernlig + 1
i = 1
End If
Next i
ActiveSheet.Range("F" & avtdernlig & ":H" & avtdernlig).Copy Range("F" & dernlig & ":H" & dernlig)
End Sub