bonjour
tout simplement parce que dans la ligne :
Tb(i, 1) = "Trim" & DatePart("q", Tb(i, 1)) 'bons résultats
ta variable Tb(i,1) est convertie de Date en String
et qu'a la ligne suivante :
Debug.Print "Trim" & DatePart("q", Tb(i, 1)) 'erreur d'execution 13, incompatilité de type
tu donnes...