Sub Adresse()
Dim i As Integer
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
chemin = ThisWorkbook.Path & "\"
For i = 8 To 165
Sheets("clés répartition").Activate
If Range("D" & i).Value <> "" Then
Range("A" & i & ":B" & i).Copy.PasteSpecial xlPasteValues
ActiveSheet.PrintOut
Range("A24").FormatConditions.Delete
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & ActiveSheet.Range("A24") & " - Coordonnées postales.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
End If
Next i
ThisWorkbook.Close SaveChanges:=False
End Sub