Bonjour,

J'ai un problème qui ne doit pas pourtant pas être important mais il suffit à me bloquer vu mon peu d'expérience.
J'ai un classeur à 12 onglets (1 par mois) avec une colonne (AZ) dans chaque onglet où se trouvent les jours du mois.
Je recherche une date donnée; une fois trouvée des valeurs sont positionnées sur la ligne correspondante

Mon code est le suivant :

Sheets(Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12")).Select
Columns("AZ:AZ").Select

Selection.Find(What:=[donnees!A97], After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(0, -49) = [donnees!A100]
ActiveCell.Offset(0, -48) = [donnees!A101]
ActiveCell.Offset(0, -47) = [donnees!A102]
..........
[donnees!A97] contient la date recherchée.

J'ai le message d'erreur (parfois) suivant :

Erreur d'execution "91"
Variable objet ou variable
de bloc with non définie

Quelqu'un peut-il corriger mon code ?

Un grand merci par avance.

Configuration: Windows XP Internet Explorer 7.0