Option Explicit
Sub copie()
Dim i As Long
copiecellule "Sheet1", "a", "Sheet3", "a", False
copiecellule "Sheet1", "c", "Sheet3", "b", False
For i = 4 To 16 ' a modifier en fonction des colonnes
copiecellule "Sheet1", Chr(64 + i), "Sheet3", Chr(64 + i - 1), True
Next i
End Sub
Private Sub copiecellule(nomfeuilleorg As String, colonneorg As String, nomfeuilledest As String, colonnedest As String, Select1 As Boolean)
Dim Dl1 As Long ' dernière ligne
Dim cell As Range
With Worksheets(nomfeuilleorg)
For Each cell In .Range(colonneorg & "5:" & colonneorg & 300)
If (cell <> "" And Select1 = False) Or (.Range("A" & cell.Row) <> "" And Select1 = True) Then
Dl1 = Worksheets(nomfeuilledest).Range(colonnedest & "65536").End(xlUp).Row
If Dl1 < 4 Then Dl1 = 5
Worksheets(nomfeuilledest).Range(colonnedest & Dl1 + 1) = cell
End If
Next cell
End With
End Sub