Sub publipostage()
Dim newWst As Worksheet, curCell As Range
Set curCell = ThisWorkbook.Sheets("Feuil1").Range("A2")
'créer une nouvelle feuille
ThisWorkbook.Worksheets("Feuil2").Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
Set newWst = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
'supprimer le bouton de la feuille
newWst.Shapes("Rectangle 1").Delete
'boucle sur les entrées de la Feuil1
While curCell.Value <> vbNullString
With newWst
'copier les valeurs
.Range("C2").Value = curCell.Value
.Range("C3").Value = curCell.Offset(0, 1).Value
.Range("C4").Value = curCell.Offset(0, 2).Value
.Range("D5").Value = curCell.Offset(0, 3).Value
.Range("D6").Value = curCell.Offset(0, 4).Value
'impripmer la feuille
On Error Resume Next
.PrintOut
On Error GoTo 0
End With
Set curCell = curCell.Offset(1, 0)
Wend
'supprime la nouvelle feuille
Application.DisplayAlerts = False
newWst.Delete
Application.DisplayAlerts = True
End Sub