Dispatcher des donner dans différents tableaux

Bonjour,

J'ai des données de température de 3 équipements entrée et sortie (plusieurs milliers de valeurs).

Elles se présentent comme ceci

colonne A: "équipement 1 / équipement 2 / équipement 3"

colonne B: "heure"

colonne C: "Température"

colonne D: "in / out"

Pour chaque équipement il y a donc 2 lignes à chaque fois avec la même heure et in ou out en colonne D

Je voudrais dispatcher ces données dans 3 tableaux différents (1 par équipement):

Equipement 1:

Colonne F: "heure"

Colonne G: "Température in"

Colonne H: "Température out"

Equipement 2:

Colonne I: "heure"

Colonne J: "Température in"

Colonne K: "Température out"

Je suis assez novice en code mais je pensais à quelque chose comme ça:

Dim qqc as integer

set qqch = 1

If Range("A").qqch = "équipement 1" and If Range("B").qqch="in" Then

Range("A").qqch.Select

Selection.Copy

Range("G").qqch.Select

Selection.Paste

Set qqch = qqch +1

End If

If Range("A").qqch = "équipement 1" and If Range("B").qqch="out" Then

Range("A").qqch.Select

Selection.Copy

Range("H").qqch.Select

Selection.Paste

Set qqch = qqch +1

End If

If Range("A").qqch = "équipement 2" and If Range("B").qqch="in" Then

Range("A").qqch.Select

Selection.Copy

Range("G").qqch.Select

Selection.Paste

Set qqch = qqch +1

End If

Je dois faire quelques erreurs mais je n'arrive pas à trouver la bonne façon.

Quelqu'un pourrait il m'aider?

Bonjour,

Peux tu joindre ton fichier cela sera plus facile a comprendre.