Offset d'une colonne VBA

Sub Decalage()
Dim ligne As Integer, n As Integer
Dim Sh As Worksheet
If Sh.Name = "Recap" Then
ligne = 3
col = Array("B")
 For m = LBound(col) To UBound(col)
  For n = 3 To Sh.Range(col(m) & "65536").End(xlUp).Row
    If IsDate(Sh.Range(col(m) & n)) And Sh.Range(col(m) & n) <> 0 Then
      If Range("B" & n).Value <> 0 Then
        Range("B" & n).FormulaLocal = "=DECALER(B" & n & ",1,,)"
        ligne = ligne + 1
      End If
    End If
  Next n
 Next m
End If
End Sub

For Each Sh In Sheets
  If Sh.Name = "Recap" Then
  ...
Next

ligne = 3
col = Array("B")
For m = LBound(col) To UBound(col)
...

'With Sheets("Recap") ..... End With

Sub Decalage2()
Dim ligne As Integer, n As Integer
Dim Sh As Worksheet
 With Sheets("Recap")
  col = Array("B")
   For m = LBound(col) To UBound(col)
    For n = 3 To Sh.Range(col(m) & "65536").End(xlUp).Row
      If Range("B" & n).Value <> 0 Then
      Range("B" & n).FormulaLocal = "=DECALER(B" & n - 1 & ";1;;)"
      End If
     Next n
   Next m
  End If
 End With
End Sub

Sub Decalage2()
  With Sheets("Feuil1")
    For n = Range("B65536").End(xlUp).Row To 3 Step -1
      If Range("B" & n).Value <> 0 Then
        Range("B" & n + 1).Value = Range("B" & n).Value
      End If
    Next n
    Range("B3").Value=""
  End With
End Sub