Macro valeur absolue sur plusieurs feuilles d'un classeur

Bonjour à tous,

Voici mon problème :

J'ai un classeur contenant plusieurs feuilles (portant des noms différents i.e Feuil1, Feuil2 etc) et une feuille "synthese". Chacune de ces feuilles contient une en tête ligne et une en tête colonne et des valeurs numériques.

J'ai trouvé une petite macro qui permet de prendre la valeur absolue d'une feuille unique.

Je souhaite généraliser cela sur chacune des feuilles du classeur (excepté la feuille "synthese").

Voici mon code :

Sub aargh()

 Dim a As Integer, Ws As Worksheet

For Each Ws In Worksheets
If Ws.Name <> "synthese" Then

    Set c = Range("A1:BZ385") 'comment adapter la plage pour systematiquement couvrir l'ensemble de mes valeurs numériques ?
    t = c.Value
    For i = LBound(t, 1) To UBound(t, 1)
        For j = LBound(t, 2) To UBound(t, 2)
            If t(i, j) < 0 Then t(i, j) = -t(i, j)
        Next j
    Next i
    c.Value = t

    End If
    Next

End Sub

La macro ne parcourt pas mon classeur et fonctionne seulement sur une seule feuille ( celle qui est selectionnée..)

Pouvez vous m'aider s'il vous plait ?

Merci

Ps : en pièce jointe un exemple de mon fichier

Bonjour,

à tester,

Sub aargh()
Dim a As Integer, Ws As Worksheet

For Each Ws In Worksheets
If Ws.Name <> "synthese" Then
 rw = Ws.Cells(Rows.Count, "A").End(xlUp).Row

    Set c = Ws.Range("A1:BZ" & rw)
    t = c.Value
    For i = LBound(t, 1) To UBound(t, 1)
        For j = LBound(t, 2) To UBound(t, 2)
            If t(i, j) < 0 Then t(i, j) = -t(i, j)
        Next j
    Next i
    c.Value = t

    End If
    Next
End Sub

Slt righilahriz,

Slt i20100,

ou comme ca:

Sub aargh()
Dim t As Integer, ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "synthese" Then
            With ws.UsedRange
            t = .Value
            For i = LBound(t, 1) To UBound(t, 1)
            For j = LBound(t, 2) To UBound(t, 2)
            If t(i, j) < 0 Then t(i, j) = -t(i, j)
            Next j
            Next i
            .Value = t
            End With
        End If
    Next ws
End Sub

merci à vous deux !