[Résolu] Copier des lignes dans une autre feuille sous condition

Sub test3()
Dim r As Range, i&
For i = 2 To Sheets(1).Range("A65536").End(xlUp).Row Step 32
Set r = Sheets(1).Cells(i, "A").Resize(32, 7)
'MsgBox r.Address 'pour test
If Application.CountBlank(r) = 0 Then
r.Copy Sheets(2).[a65536].End(xlUp)(2)
End If
Set r = Nothing
Next i
End Sub

Sub test()
Application.ScreenUpdating = False
For i = 2 To Sheets("Feuil2").Range("A65536").End(xlDown).Row + 1
Range("A" & i & ":G" & i).Copy Sheets("Feuil2").Range("A" & i & ":G" & i)
If i = 33 Then
Exit For
End If
'MsgBox
Next i

For i = 34 To Sheets("Feuil2").Range("A65536").End(xlDown).Row + 1
Range("A" & i & ":G" & i).Copy Sheets("Feuil2").Range("A" & i & ":G" & i)
If i = 65 Then
Exit For
End If
'MsgBox
Next i

For i = 66 To Sheets("Feuil2").Range("A65536").End(xlDown).Row + 1
Range("A" & i & ":G" & i).Copy Sheets("Feuil2").Range("A" & i & ":G" & i)
If i = 97 Then
Exit For
End If
'MsgBox
Next i
Exit Sub


For i = 98 To Sheets("Feuil2").Range("A65536").End(xlDown).Row + 1
Range("A" & i & ":G" & i).Copy Sheets("Feuil2").Range("A" & i & ":G" & i)
If i = 97 Then
Exit For
End If
'MsgBox
Next i
Exit Sub

Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nb As Integer
'Pour éviter de compter aussi la cellule A1, on met la cellule à 0 _
en inscrivant -1 sur la ligne de fonction.

nb = Application.WorksheetFunction.CountA(Feuil1.Range("$A:$A")) - 1
[J1] = nb

For i = 1 To 100
If [J1] = 32 Then
MsgBox [J1] & " Heureux"
Feuil1.[A2:G65536].Copy Feuil2.[A2]     ' Je remercie Job75 pour cette ligne de code
Exit For
End If
If [J1] > 32 Then
[J1].Value = [J1].Value - 32
End If
Next i

End Sub