probleme avec fonction filtre

Bonsoir tout le monde,

Grand coup de chapeau a tous ceux qui depannent sur ce site, c'est agreable de pouvoir compter sur vous

Gros probleme avec ma macro ci-dessous!!!!!!!

Si quelqu'un est connecte et peut m'aider, cela me depannerait

SUB PBL()
' ref PSES
'
'
Dim PSES As String
Range("F5").Select
PSES = ActiveCell.Value

Sheets("donnee3").Select
If Worksheets("donnee3").AutoFilterMode Then
Selection.AutoFilter
End If
Columns("D").Select
Selection.AutoFilter
ActiveSheet.Range("$D$1:$D$100").AutoFilter Field:=1, Criteria1:=PSES
'
'
' que faire si PSES n'est pas dans colonne D



Sheets("donnee3").Select
Range("d6:d100").Select
Selection.Copy
Sheets("tab2").Select
Range("f8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
'

End Sub

Si ma macro ne trouve pas de valeur PSES il faudrait que je puisse afficher 0 en f8 sur feuille "tab2"

Merci beaucoup de l'aide