Hello
Receiving this error (translation from French)
Error 13
Incompatibility type
From this code
GTD = WorksheetFunction.Clean(VBA.Mid(Sheets("Data_In_out").Range("GTD_Str").text, "AAAAMMDD,HH:MM:SS"))
GAD = WorksheetFunction.Clean(VBA.Mid(Sheets("Data_In_out").Range("Gad_Str").text...