|
|
|
|
Bonjour Lindette,
Private Sub Worksheet_Change(ByVal Target As Range) If Sheets(2).[a65] <> "" Then Imprimer End Sub - Dans un module de code : Sub Imprimer()
If Sheets(2).[a65] <> "" Then
Sheets(Array("Feuil1", "Feuil2")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub
Cordialement. |