Sub imprime()
Range("G2") = "Garoua, le " & Format(Now, "dd/mm/yyyyy")
Set c = Sheets("prevision").Cells.Find("S1", LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Range("B5") = "Je, soussigné, Machepro, certifie que Monsieur " & Sheets("prevision").Cells(c.Row - 1, 1) & " a débuté son stage le " & Sheets("prevision").Cells(1, c.Column)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Set c = Sheets("prevision").Cells.FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End Sub