MACRO

Bonjour
je me demandais si il est possible de créer une macro permettant de conserver sur le fichier ci-joint seulement les cases contenant les valeurs temps et température pour être plus clair je vous ai envoyer la situation A et la situation B a laquelle je voudrais arriver. Pour ce faire j'ai moi mème commencer une macro mais qui est incomplète car il faut encore faire une bonne partie du travaille manuellement.
Sub Tri_Donnee_Scanner_Thermocouples()

Ligne = 2
Colone = 2
While Cells(Ligne, Colone) <> 0
Cells(Ligne, Colone).Select
Selection.Cut Destination:=Cells(Ligne - 1, Colone + 4)
Cells(Ligne, Colone + 1).Select
Selection.Cut Destination:=Cells(Ligne - 1, Colone + 5)
Cells(Ligne, Colone + 2).Select
Selection.Cut Destination:=Cells(Ligne - 1, Colone + 6)
Cells(Ligne, Colone + 3).Select
Selection.Cut Destination:=Cells(Ligne - 1, Colone + 7)
Cells(Ligne + 1, Colone).Select
Selection.Cut Destination:=Cells(Ligne - 1, Colone + 8)
Cells(Ligne + 1, Colone + 1).Select
Selection.Cut Destination:=Cells(Ligne - 1, Colone + 9)
Cells(Ligne + 1, Colone + 2).Select
Selection.Cut Destination:=Cells(Ligne - 1, Colone + 10)
Cells(Ligne + 1, Colone + 3).Select
Selection.Cut Destination:=Cells(Ligne - 1, Colone + 11)
Rows(Ligne).Select
Selection.Delete Shift:=xlUp
Rows(Ligne).Select
Selection.Delete Shift:=xlUp
Ligne = Ligne + 1

Wend


End Sub

En vous remerçiant d'avance de toute aide .