WSCible.Range("A1").Select
jouratrouver = Left(Calendar1, 2)
moisatrouver = Mid(Calendar1, 4, 2)
anatrouver = Mid(Calendar1, 7, 4)
dateatrouver = moisatrouver & "/" & jouratrouver & "/" & anatrouver
' recherche la premiere ligne de la valeur du calendrier
Set foundCell = .Cells.Find(Calendar1, LookIn:=xlValues, LookAt:=xlWhole)
If Not foundCell Is Nothing Then
'''' loopaddr = valeur de la cellule exemple T16
loopAddr = foundCell.Address
'''' on selectionne cette case
foundCell.Activate